object frmNag: TfrmNag Left = 210 Top = 91 BorderIcons = [biSystemMenu, biHelp] BorderStyle = bsDialog Caption = 'Welcome to Ultra Logic!' ClientHeight = 306 ClientWidth = 349 Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Position = poScreenCenter PixelsPerInch = 96 TextHeight = 13 object imgBackGround: TImage Left = 0 Top = 0 Width = 349 Height = 306 Align = alClient Picture.Data = {} Stretch = True end object Image2: TImage Left = 59 Top = 172 Width = 14 Height = 14 AutoSize = True Picture.Data = {} end object LabelEffect1: TLabelEffect Left = 87 Top = 1 Width = 175 Height = 42 DirectionHighlight = edDownRight DirectionShadow = edUpLeft ColourHighlight = clGray ColourShadow = clGray EffectStyle = esCustom ColourScheme = csCustom AutoSize = True Caption = 'Ultra Logic' Color = clBtnFace Font.Color = clBlack Font.Height = -37 Font.Name = 'Arial' Font.Style = [] ParentColor = False ParentFont = False Transparent = True end object Label1: TLabel Left = 6 Top = 54 Width = 336 Height = 26 Caption = 'Ultra Logic is distributed using the shareware concept. You are ' + 'allowed to use this version for a period of 21 days for free.' Transparent = True WordWrap = True end object Label2: TLabel Left = 6 Top = 81 Width = 337 Height = 39 Caption = 'If at the end of this evaluation period you decide that you want' + ' to continue using it then you must register with the author by ' + 'paying a small (5 US$) registration fee.' Transparent = True WordWrap = True end object Bevel1: TBevel Left = 82 Top = 41 Width = 185 Height = 5 Shape = bsBottomLine end object Label3: TLabel Left = 6 Top = 121 Width = 336 Height = 39 Caption = 'When you register you receive a special registration code which ' + 'will convert this shareware version to the full, registered vers' + 'ion. Registration has the following benifits:' Transparent = True WordWrap = True end object Label4: TLabel Left = 77 Top = 172 Width = 117 Height = 13 Caption = 'Expert level enabled' Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False Transparent = True end object Image3: TImage Left = 59 Top = 191 Width = 14 Height = 14 AutoSize = True Picture.Data = {} end object Label5: TLabel Left = 77 Top = 191 Width = 181 Height = 13 Caption = 'Custom board sizes up to 10x15' Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False Transparent = True end object Image4: TImage Left = 59 Top = 209 Width = 14 Height = 14 AutoSize = True Picture.Data = {} end object Label6: TLabel Left = 77 Top = 209 Width = 93 Height = 13 Caption = 'FREE upgrades!' Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False Transparent = True end object Image5: TImage Left = 59 Top = 228 Width = 14 Height = 14 AutoSize = True Picture.Data = {} end object Label7: TLabel Left = 77 Top = 228 Width = 232 Height = 13 Caption = 'No more annoying screens (like this one)' Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False Transparent = True end object Bevel2: TBevel Left = 7 Top = 256 Width = 334 Height = 6 Shape = bsBottomLine end object btnRegisterNow: TButton Left = 6 Top = 268 Width = 101 Height = 35 Caption = '&Register' Default = True TabOrder = 0 OnClick = btnRegisterNowClick end object btnRegisterLater: TButton Left = 242 Top = 268 Width = 101 Height = 35 Cancel = True Caption = 'Register &Later' ModalResult = 2 TabOrder = 2 end object btnRegistrationCode: TButton Left = 112 Top = 268 Width = 125 Height = 35 Caption = 'Enter Registration &Code' TabOrder = 1 OnClick = btnRegistrationCodeClick end end